10 ' PYRAMIDC
20 MODE 1:BORDER 0:PAPER 0
30 FOR i=0 TO 3:INK i,0:NEXT i
40 MEMORY &3FFF
50 LOAD"PyramidC.cmp"
60 FOR i=0 TO 3:INK i,0:NEXT i
70 POKE &A634,&C8:POKE &A635,0:POKE &A636,0:CALL &A60B
80 POKE &C7F1,&C9:CALL &C7D0
90 CALL &A60B

100 WINDOW #1,25,36,4,19
110 INK 0,0:INK 1,3:INK 2,15:INK 3,24
120 PEN #1,3:PRINT #1:PRINT #1,"La Chambre":PRINT #1,"des":PRINT #1,"Harmonies":PRINT #1,"Perdues :":PRINT #1
130 PRINT #1,"Le sommet":PRINT #1,"chante":PRINT #1,"sous le":PRINT #1,"souffle":PRINT #1,"des notes":PRINT #1,"anciennes."

140 LOCATE 13,20:PEN 2:PRINT"QUE FAITES-VOUS ?"
150 PEN 3:LOCATE 4,22:PRINT "   Appuyer sur : 0-1-2-3-4-5-6-7"
160 PEN 2:LOCATE 4,24:PRINT " 8-Examiner         9-Redescendre"

200 k$=INKEY$
205 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
210 IF k$="1"THEN SOUND 1,284,60:GOTO 300
220 IF k$="2"THEN SOUND 2,213,60:GOTO 200
230 IF k$="3"THEN SOUND 3,190,60:GOTO 200
240 IF k$="4"THEN SOUND 1,159,60:GOTO 200
250 IF k$="5"THEN SOUND 2,142,60:GOTO 200
260 IF k$="6"THEN SOUND 3,127,60:GOTO 200
270 IF k$="7"THEN SOUND 1,119,60:GOTO 200
285 IF k$="8"THEN GOTO 2000
286 IF k$="9"THEN RUN"PyramidA.bas"
290 IF k$<"0"OR k$>"9" THEN GOTO 200

300 k$=INKEY$
305 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
310 IF k$="1"THEN SOUND 1,284,60:GOTO 200
320 IF k$="2"THEN SOUND 2,213,60:GOTO 200
330 IF k$="3"THEN SOUND 3,190,60:GOTO 400
340 IF k$="4"THEN SOUND 1,159,60:GOTO 200
350 IF k$="5"THEN SOUND 2,142,60:GOTO 200
360 IF k$="6"THEN SOUND 3,127,60:GOTO 200
370 IF k$="7"THEN SOUND 1,119,60:GOTO 200
385 IF k$="8"THEN GOTO 2000
386 IF k$="9"THEN RUN"PyramidA.bas"
390 IF k$<"0"OR k$>"9" THEN GOTO 300

400 k$=INKEY$
405 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
410 IF k$="1"THEN SOUND 1,284,60:GOTO 200
420 IF k$="2"THEN SOUND 2,213,60:GOTO 500
430 IF k$="3"THEN SOUND 3,190,60:GOTO 200
440 IF k$="4"THEN SOUND 1,159,60:GOTO 200
450 IF k$="5"THEN SOUND 2,142,60:GOTO 200
460 IF k$="6"THEN SOUND 3,127,60:GOTO 200
470 IF k$="7"THEN SOUND 1,119,60:GOTO 200
485 IF k$="8"THEN GOTO 2000
486 IF k$="9"THEN RUN"PyramidA.bas"
490 IF k$<"0"OR k$>"9" THEN GOTO 400

500 k$=INKEY$
505 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
510 IF k$="1"THEN SOUND 1,284,60:GOTO 200
520 IF k$="2"THEN SOUND 2,213,60:GOTO 200
530 IF k$="3"THEN SOUND 3,190,60:GOTO 600
540 IF k$="4"THEN SOUND 1,159,60:GOTO 200
550 IF k$="5"THEN SOUND 2,142,60:GOTO 200
560 IF k$="6"THEN SOUND 3,127,60:GOTO 200
570 IF k$="7"THEN SOUND 1,119,60:GOTO 200
585 IF k$="8"THEN GOTO 2000
586 IF k$="9"THEN RUN"PyramidA.bas"
590 IF k$<"0"OR k$>"9" THEN GOTO 500

600 k$=INKEY$
605 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
610 IF k$="1"THEN SOUND 1,284,60:GOTO 200
620 IF k$="2"THEN SOUND 2,213,60:GOTO 200
630 IF k$="3"THEN SOUND 3,190,60:GOTO 200
640 IF k$="4"THEN SOUND 1,159,60:GOTO 700
650 IF k$="5"THEN SOUND 2,142,60:GOTO 200
660 IF k$="6"THEN SOUND 3,127,60:GOTO 200
670 IF k$="7"THEN SOUND 1,119,60:GOTO 200
685 IF k$="8"THEN GOTO 2000
686 IF k$="9"THEN RUN"PyramidA.bas"
690 IF k$<"0"OR k$>"9" THEN GOTO 600

700 k$=INKEY$
705 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
710 IF k$="1"THEN SOUND 1,284,60:GOTO 200
720 IF k$="2"THEN SOUND 2,213,60:GOTO 200
730 IF k$="3"THEN SOUND 3,190,60:GOTO 800
740 IF k$="4"THEN SOUND 1,159,60:GOTO 200
750 IF k$="5"THEN SOUND 2,142,60:GOTO 200
760 IF k$="6"THEN SOUND 3,127,60:GOTO 200
770 IF k$="7"THEN SOUND 1,119,60:GOTO 200
785 IF k$="8"THEN GOTO 2000
786 IF k$="9"THEN RUN"PyramidA.bas"
790 IF k$<"0"OR k$>"9" THEN GOTO 700

800 k$=INKEY$
805 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
810 IF k$="1"THEN SOUND 1,284,60:GOTO 200
820 IF k$="2"THEN SOUND 2,213,60:GOTO 200
830 IF k$="3"THEN SOUND 3,190,60:GOTO 200
840 IF k$="4"THEN SOUND 1,159,60:GOTO 200
850 IF k$="5"THEN SOUND 2,142,60:GOTO 200
860 IF k$="6"THEN SOUND 3,127,60:GOTO 200
870 IF k$="7"THEN SOUND 1,119,60:GOTO 900
885 IF k$="8"THEN GOTO 2000
886 IF k$="9"THEN RUN"PyramidA.bas"
890 IF k$<"0"OR k$>"9" THEN GOTO 800

900 k$=INKEY$
905 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
910 IF k$="1"THEN SOUND 1,284,60:GOTO 200
920 IF k$="2"THEN SOUND 2,213,60:GOTO 200
930 IF k$="3"THEN SOUND 3,190,60:GOTO 200
940 IF k$="4"THEN SOUND 1,159,60:GOTO 200
950 IF k$="5"THEN SOUND 2,142,60:GOTO 200
960 IF k$="6"THEN SOUND 3,127,60:GOTO 1000
970 IF k$="7"THEN SOUND 1,119,60:GOTO 200
985 IF k$="8"THEN GOTO 2000
986 IF k$="9"THEN RUN"PyramidA.bas"
990 IF k$<"0"OR k$>"9" THEN GOTO 900

1000 k$=INKEY$
1005 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1010 IF k$="1"THEN SOUND 1,284,60:GOTO 200
1020 IF k$="2"THEN SOUND 2,213,60:GOTO 200
1030 IF k$="3"THEN SOUND 3,190,60:GOTO 200
1040 IF k$="4"THEN SOUND 1,159,60:GOTO 200
1050 IF k$="5"THEN SOUND 2,142,60:GOTO 1100
1060 IF k$="6"THEN SOUND 3,127,60:GOTO 200
1070 IF k$="7"THEN SOUND 1,119,60:GOTO 200
1085 IF k$="8"THEN GOTO 2000
1086 IF k$="9"THEN RUN"PyramidA.bas"
1090 IF k$<"0"OR k$>"9" THEN GOTO 1000

1100 k$=INKEY$
1105 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1110 IF k$="1"THEN SOUND 1,284,60:GOTO 200
1120 IF k$="2"THEN SOUND 2,213,60:GOTO 200
1130 IF k$="3"THEN SOUND 3,190,60:GOTO 200
1140 IF k$="4"THEN SOUND 1,159,60:GOTO 1200
1150 IF k$="5"THEN SOUND 2,142,60:GOTO 200
1160 IF k$="6"THEN SOUND 3,127,60:GOTO 200
1170 IF k$="7"THEN SOUND 1,119,60:GOTO 200
1185 IF k$="8"THEN GOTO 2000
1186 IF k$="9"THEN RUN"PyramidA.bas"
1190 IF k$<"0"OR k$>"9" THEN GOTO 1100

1200 k$=INKEY$
1205 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1210 IF k$="1"THEN SOUND 1,284,60:GOTO 200
1220 IF k$="2"THEN SOUND 2,213,60:GOTO 200
1230 IF k$="3"THEN SOUND 3,190,60:GOTO 200
1240 IF k$="4"THEN SOUND 1,159,60:GOTO 200
1250 IF k$="5"THEN SOUND 2,142,60:GOTO 1300
1260 IF k$="6"THEN SOUND 3,127,60:GOTO 200
1270 IF k$="7"THEN SOUND 1,119,60:GOTO 200
1285 IF k$="8"THEN GOTO 2000
1286 IF k$="9"THEN RUN"PyramidA.bas"
1290 IF k$<"0"OR k$>"9" THEN GOTO 1200

1300 k$=INKEY$
1305 IF k$="0"THEN SOUND 1,284,60:SOUND 1,190,60:SOUND 1,213,60:SOUND 1,190,60:SOUND 1,159,60:SOUND 1,190,60:SOUND 1,119,60:SOUND 1,127,60:SOUND 1,142,60:SOUND 1,159,60:SOUND 1,142,60:SOUND 1,190,60:GOTO 200
1310 IF k$="1"THEN SOUND 1,284,60:GOTO 200
1320 IF k$="2"THEN SOUND 2,213,60:GOTO 200
1330 IF k$="3"THEN SOUND 3,190,60:GOTO 1400
1340 IF k$="4"THEN SOUND 1,159,60:GOTO 200
1350 IF k$="5"THEN SOUND 2,142,60:GOTO 200
1360 IF k$="6"THEN SOUND 3,127,60:GOTO 200
1370 IF k$="7"THEN SOUND 1,119,60:GOTO 200
1385 IF k$="8"THEN GOTO 2000
1386 IF k$="9"THEN RUN"PyramidA.bas"
1390 IF k$<"0"OR k$>"9" THEN GOTO 1300

1400 IF PEEK(&BE82)=0 Then GOTO 1500
1410 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1420 PEN 3:PRINT"Vous rejouez la melodie parfaitement.":PRINT"Oui, encore une fois..."
1430 PEN 2:PRINT:PRINT"Felicitation, vous etes peut‑etre le":PRINT"Beethoven des pyramides."
1440 PEN 3:PRINT:PRINT"Mais petit rappel amical : la console":PRINT"n'est pas un distributeur automatique":PRINT"de clefs magiques !"
1450 PEN 1:PRINT:PRINT"Le clic triomphal retentit, la trappe":PRINT"s'ouvre... mais reste tristement vide."
1460 PEN 3:PRINT:PRINT"Rappelez‑vous, vous avez deja emporte":PRINT"la fameuse cle en forme d'Ankh !"
1470 PEN 2:PRINT:PRINT"Apparemment, seule votre memoire a":PRINT"decide de prendre une clef...":PRINT"mais celle des champs... ou des chants !"
1480 PEN 1:Locate 1,21:PRINT"C'est beau, hein ?":PRINT"Normal, C'est de moi !"
1490 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1495 GOTO 60

1500 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
1510 PEN 3:PRINT"Vous appuyez sur la derniere note et":PRINT"miracle, la melodie sonne juste !"
1520 PEN 2:PRINT:PRINT"Felicitations, Beethoven, vous venez de":PRINT"prouver qu'avoir joue trois morceaux a":PRINT"la flute au college n'etait pas":PRINT"totalement inutile."
1530 PEN 1:PRINT:PRINT"La console se met a vibrer, emettant un":PRINT"clic triomphal avant qu'une petite":PRINT"trappe s'ouvre."
1540 PEN 3:PRINT:PRINT"Une cle en forme d'Ankh tombe sur le sol":locate 1,14:PRINT"avec toute la grace d'un pigeon obese."
1550 PEN 2:PRINT:PRINT"Vous la ramassez et l'ajoutez a votre":PRINT"inventaire."
1560 PEN 3:PRINT:PRINT"Bravo, vous etes maintenant a la fois":PRINT"explorateur et musicien."
1570 PEN 2:PRINT:PRINT"Indiana Jones et Mark Snow peuvent":PRINT"aller se recoucher."
1580 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
1590 POKE &BE82,1:GOTO 60 

2000 MODE 1:INK 0,0:INK 1,6:INK 2,15:INK 3,24
2010 PEN 3:PRINT"Vous avez litteralement gravi tous":PRINT"les echelons pour atteindre le sommet":PRINT"de la pyramide, la piece la plus haute."
2020 PEN 1:PRINT:PRINT"Et la...":PRINT"Une console etrange avec 8 boutons":PRINT"numerotes de 0 a 7 vous attend."
2025 PEN 3:Locate 14,7:Print"0":Locate 18,7:PRINT"7"
2030 PEN 2:PRINT:PRINT"Le bouton 0 joue une melodie entiere,":Locate 11,9:Pen 3:PRINT"0":PEN 2:PRINT"etrangement familiere..."
2040 PEN 3:PRINT:PRINT"Les autres ? Des notes isolees, comme":PRINT"si un musicien avait decide de faire":PRINT"greve en plein morceau..."
2050 PEN 1:PRINT:PRINT"Apparemment, il ne suffit pas d'avoir":PRINT"des muscles, il va aussi falloir avoir":PRINT"de l'oreille !"
2060 PEN 2:PRINT:PRINT"        Bon courage, maestro...":PEN 3:PRINT:PRINT"Et non, taper un solo de batterie dessus":locate 1,23:PRINT"ne resoudra rien."
2080 PEN 3:LOCATE 15,25:INPUT" ENTER  ",en$
2090 GOTO 60